home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0202.PRG < prev    next >
Text File  |  1988-06-18  |  896b  |  28 lines
  1. *************************************************************
  2. *     ML0202.CMD - ROUTINE TO SELECT FOR GIVEN CODE         *    9/24/84
  3. *************************************************************
  4. SET TALK OFF
  5. ERASE
  6. STORE '            ' TO TARGET
  7. STORE     0 TO ZIPLO
  8. STORE 99999 TO ZIPHI
  9.  
  10. @  8,10 SAY '     Develop Selected Records from Reference Code'
  11. @ 12,10 SAY 'Input Reference Code      ' GET TARGET PICTURE 'XXXXXXXXXXXX'
  12. @ 14,10 SAY 'Input ZIP CODE Range   ' GET ZIPLO PICTURE '99999'
  13. @ 14,41 SAY '   TO  ' GET ZIPHI PICTURE '99999'
  14. READ
  15. CLEAR GETS
  16.  
  17. STORE "',"+TRIM(TARGET)+",'" TO TARGET
  18. SELECT PRIMARY
  19.  
  20. COPY TO MLSUB1 ALL FOR @(&TARGET,CODES)#0 .AND. (VAL(ZIP)>=ZIPLO .AND. VAL(ZIP)<=ZIPHI)
  21.  
  22. RELEASE ZIPHI,ZIPLO,TARGET
  23. RETURN
  24. B1 ALL FOR @(&TARGET,CODES)#0 .AND. (VAL(ZIP)>=ZIPLO .AND. VAL(ZIP)<=ZIPHI)
  25.  
  26. RELEASE ZIPHI,ZIPLO,TARGET
  27. RETURN
  28.